1 '`ZEROKILL'  fills pgm to be killed with 0's. From 80micro Jan.87 p25.
2 '`ERROR..' aded, H.H.H., (88 03 27)              on Disks:
.
5  CLS
10 CLEAR 500: F$="": LINEINPUT "File to be zeroed and killed ? "; F$: ON ERROR GOTO 30: IF F$="" THEN CLS: CMD"S" ELSE OPEN"I",1,F$: CLOSE
20 OPEN"R",1,F$: FIELD 1,128 AS Z$,128 AS Z1$: LSET Z$=STRING$(128,CHR$(0)): LSET Z1$=Z$: L=LOF(1): FOR N=1 TO L: PUT 1,N: NEXT: CLOSE 1: KILL F$: PRINT " . . . it's done.": GOTO 10
30 PRINT "   no such File !": RESUME 10
